3.24.93 \(\int \frac {\sqrt {a+b \sqrt {\frac {c}{x}}}}{x^4} \, dx\)

Optimal. Leaf size=174 \[ \frac {4 a^5 \left (a+b \sqrt {\frac {c}{x}}\right )^{3/2}}{3 b^6 c^3}-\frac {4 a^4 \left (a+b \sqrt {\frac {c}{x}}\right )^{5/2}}{b^6 c^3}+\frac {40 a^3 \left (a+b \sqrt {\frac {c}{x}}\right )^{7/2}}{7 b^6 c^3}-\frac {40 a^2 \left (a+b \sqrt {\frac {c}{x}}\right )^{9/2}}{9 b^6 c^3}-\frac {4 \left (a+b \sqrt {\frac {c}{x}}\right )^{13/2}}{13 b^6 c^3}+\frac {20 a \left (a+b \sqrt {\frac {c}{x}}\right )^{11/2}}{11 b^6 c^3} \]

________________________________________________________________________________________

Rubi [A]  time = 0.11, antiderivative size = 174, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 21, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.143, Rules used = {369, 266, 43} \begin {gather*} -\frac {40 a^2 \left (a+b \sqrt {\frac {c}{x}}\right )^{9/2}}{9 b^6 c^3}+\frac {40 a^3 \left (a+b \sqrt {\frac {c}{x}}\right )^{7/2}}{7 b^6 c^3}-\frac {4 a^4 \left (a+b \sqrt {\frac {c}{x}}\right )^{5/2}}{b^6 c^3}+\frac {4 a^5 \left (a+b \sqrt {\frac {c}{x}}\right )^{3/2}}{3 b^6 c^3}-\frac {4 \left (a+b \sqrt {\frac {c}{x}}\right )^{13/2}}{13 b^6 c^3}+\frac {20 a \left (a+b \sqrt {\frac {c}{x}}\right )^{11/2}}{11 b^6 c^3} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[Sqrt[a + b*Sqrt[c/x]]/x^4,x]

[Out]

(4*a^5*(a + b*Sqrt[c/x])^(3/2))/(3*b^6*c^3) - (4*a^4*(a + b*Sqrt[c/x])^(5/2))/(b^6*c^3) + (40*a^3*(a + b*Sqrt[
c/x])^(7/2))/(7*b^6*c^3) - (40*a^2*(a + b*Sqrt[c/x])^(9/2))/(9*b^6*c^3) + (20*a*(a + b*Sqrt[c/x])^(11/2))/(11*
b^6*c^3) - (4*(a + b*Sqrt[c/x])^(13/2))/(13*b^6*c^3)

Rule 43

Int[((a_.) + (b_.)*(x_))^(m_.)*((c_.) + (d_.)*(x_))^(n_.), x_Symbol] :> Int[ExpandIntegrand[(a + b*x)^m*(c + d
*x)^n, x], x] /; FreeQ[{a, b, c, d, n}, x] && NeQ[b*c - a*d, 0] && IGtQ[m, 0] && ( !IntegerQ[n] || (EqQ[c, 0]
&& LeQ[7*m + 4*n + 4, 0]) || LtQ[9*m + 5*(n + 1), 0] || GtQ[m + n + 2, 0])

Rule 266

Int[(x_)^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Dist[1/n, Subst[Int[x^(Simplify[(m + 1)/n] - 1)*(a
+ b*x)^p, x], x, x^n], x] /; FreeQ[{a, b, m, n, p}, x] && IntegerQ[Simplify[(m + 1)/n]]

Rule 369

Int[((d_.)*(x_))^(m_.)*((a_) + (b_.)*((c_.)*(x_)^(q_))^(n_))^(p_.), x_Symbol] :> With[{k = Denominator[n]}, Su
bst[Int[(d*x)^m*(a + b*c^n*x^(n*q))^p, x], x^(1/k), (c*x^q)^(1/k)/(c^(1/k)*(x^(1/k))^(q - 1))]] /; FreeQ[{a, b
, c, d, m, p, q}, x] && FractionQ[n]

Rubi steps

\begin {align*} \int \frac {\sqrt {a+b \sqrt {\frac {c}{x}}}}{x^4} \, dx &=\operatorname {Subst}\left (\int \frac {\sqrt {a+\frac {b \sqrt {c}}{\sqrt {x}}}}{x^4} \, dx,\sqrt {x},\frac {\sqrt {\frac {c}{x}} x}{\sqrt {c}}\right )\\ &=-\operatorname {Subst}\left (2 \operatorname {Subst}\left (\int x^5 \sqrt {a+b \sqrt {c} x} \, dx,x,\frac {1}{\sqrt {x}}\right ),\sqrt {x},\frac {\sqrt {\frac {c}{x}} x}{\sqrt {c}}\right )\\ &=-\operatorname {Subst}\left (2 \operatorname {Subst}\left (\int \left (-\frac {a^5 \sqrt {a+b \sqrt {c} x}}{b^5 c^{5/2}}+\frac {5 a^4 \left (a+b \sqrt {c} x\right )^{3/2}}{b^5 c^{5/2}}-\frac {10 a^3 \left (a+b \sqrt {c} x\right )^{5/2}}{b^5 c^{5/2}}+\frac {10 a^2 \left (a+b \sqrt {c} x\right )^{7/2}}{b^5 c^{5/2}}-\frac {5 a \left (a+b \sqrt {c} x\right )^{9/2}}{b^5 c^{5/2}}+\frac {\left (a+b \sqrt {c} x\right )^{11/2}}{b^5 c^{5/2}}\right ) \, dx,x,\frac {1}{\sqrt {x}}\right ),\sqrt {x},\frac {\sqrt {\frac {c}{x}} x}{\sqrt {c}}\right )\\ &=\frac {4 a^5 \left (a+b \sqrt {\frac {c}{x}}\right )^{3/2}}{3 b^6 c^3}-\frac {4 a^4 \left (a+b \sqrt {\frac {c}{x}}\right )^{5/2}}{b^6 c^3}+\frac {40 a^3 \left (a+b \sqrt {\frac {c}{x}}\right )^{7/2}}{7 b^6 c^3}-\frac {40 a^2 \left (a+b \sqrt {\frac {c}{x}}\right )^{9/2}}{9 b^6 c^3}+\frac {20 a \left (a+b \sqrt {\frac {c}{x}}\right )^{11/2}}{11 b^6 c^3}-\frac {4 \left (a+b \sqrt {\frac {c}{x}}\right )^{13/2}}{13 b^6 c^3}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.06, size = 111, normalized size = 0.64 \begin {gather*} \frac {4 \left (a+b \sqrt {\frac {c}{x}}\right )^{3/2} \left (256 a^5 x^2-384 a^4 b x^2 \sqrt {\frac {c}{x}}+480 a^3 b^2 c x-560 a^2 b^3 c x \sqrt {\frac {c}{x}}+630 a b^4 c^2-693 b^5 c x \left (\frac {c}{x}\right )^{3/2}\right )}{9009 b^6 c^3 x^2} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[Sqrt[a + b*Sqrt[c/x]]/x^4,x]

[Out]

(4*(a + b*Sqrt[c/x])^(3/2)*(630*a*b^4*c^2 + 480*a^3*b^2*c*x - 560*a^2*b^3*c*Sqrt[c/x]*x - 693*b^5*c*(c/x)^(3/2
)*x + 256*a^5*x^2 - 384*a^4*b*Sqrt[c/x]*x^2))/(9009*b^6*c^3*x^2)

________________________________________________________________________________________

IntegrateAlgebraic [A]  time = 0.05, size = 103, normalized size = 0.59 \begin {gather*} \frac {4 \left (a+b \sqrt {\frac {c}{x}}\right )^{3/2} \left (256 a^5-384 a^4 b \sqrt {\frac {c}{x}}+\frac {480 a^3 b^2 c}{x}-560 a^2 b^3 \left (\frac {c}{x}\right )^{3/2}+\frac {630 a b^4 c^2}{x^2}-693 b^5 \left (\frac {c}{x}\right )^{5/2}\right )}{9009 b^6 c^3} \end {gather*}

Antiderivative was successfully verified.

[In]

IntegrateAlgebraic[Sqrt[a + b*Sqrt[c/x]]/x^4,x]

[Out]

(4*(a + b*Sqrt[c/x])^(3/2)*(256*a^5 - 384*a^4*b*Sqrt[c/x] - 560*a^2*b^3*(c/x)^(3/2) - 693*b^5*(c/x)^(5/2) + (6
30*a*b^4*c^2)/x^2 + (480*a^3*b^2*c)/x))/(9009*b^6*c^3)

________________________________________________________________________________________

fricas [A]  time = 1.43, size = 105, normalized size = 0.60 \begin {gather*} -\frac {4 \, {\left (693 \, b^{6} c^{3} - 70 \, a^{2} b^{4} c^{2} x - 96 \, a^{4} b^{2} c x^{2} - 256 \, a^{6} x^{3} + {\left (63 \, a b^{5} c^{2} x + 80 \, a^{3} b^{3} c x^{2} + 128 \, a^{5} b x^{3}\right )} \sqrt {\frac {c}{x}}\right )} \sqrt {b \sqrt {\frac {c}{x}} + a}}{9009 \, b^{6} c^{3} x^{3}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*(c/x)^(1/2))^(1/2)/x^4,x, algorithm="fricas")

[Out]

-4/9009*(693*b^6*c^3 - 70*a^2*b^4*c^2*x - 96*a^4*b^2*c*x^2 - 256*a^6*x^3 + (63*a*b^5*c^2*x + 80*a^3*b^3*c*x^2
+ 128*a^5*b*x^3)*sqrt(c/x))*sqrt(b*sqrt(c/x) + a)/(b^6*c^3*x^3)

________________________________________________________________________________________

giac [F(-2)]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {Exception raised: TypeError} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*(c/x)^(1/2))^(1/2)/x^4,x, algorithm="giac")

[Out]

Exception raised: TypeError >> An error occurred running a Giac command:INPUT:sage2:=int(sage0,x):;OUTPUT:Warn
ing, integration of abs or sign assumes constant sign by intervals (correct if the argument is real):Check [ab
s(x)]Warning, choosing root of [1,0,0,0,%%%{-1,[1]%%%}] at parameters values [74.7709350525]Warning, choosing
root of [1,0,0,0,%%%{-1,[1]%%%}] at parameters values [47.3295757947]Warning, choosing root of [1,0,0,0,%%%{-1
,[1]%%%}] at parameters values [50.5901726987]Warning, choosing root of [1,0,0,0,%%%{-1,[1]%%%}] at parameters
values [91.0141688026]Warning, choosing root of [1,0,0,0,%%%{-1,[1]%%%}] at parameters values [59.8656459874]
Warning, choosing root of [1,0,0,0,%%%{-1,[1]%%%}] at parameters values [25.8388736797]Warning, choosing root
of [1,0,0,0,%%%{-1,[1]%%%}] at parameters values [33.9285577983]Warning, choosing root of [1,0,0,0,%%%{-1,[1]%
%%}] at parameters values [15.451549686]Warning, choosing root of [1,0,0,0,%%%{-1,[1]%%%}] at parameters value
s [8]Warning, choosing root of [1,0,0,0,%%%{-1,[1]%%%}] at parameters values [-64]Warning, choosing root of [1
,0,0,0,%%%{-1,[1]%%%}] at parameters values [2]Warning, need to choose a branch for the root of a polynomial w
ith parameters. This might be wrong.Non regular value [0] was discarded and replaced randomly by 0=[37]Algebra
ic extensions not allowed in a rootofAlgebraic extensions not allowed in a rootofAlgebraic extensions not allo
wed in a rootofWarning, need to choose a branch for the root of a polynomial with parameters. This might be wr
ong.The choice was done assuming [b]=[-56]Warning, need to choose a branch for the root of a polynomial with p
arameters. This might be wrong.The choice was done assuming [b]=[-99]Evaluation time: 5.9index.cc index_m oper
ator + Error: Bad Argument Value

________________________________________________________________________________________

maple [A]  time = 0.02, size = 133, normalized size = 0.76 \begin {gather*} -\frac {4 \sqrt {a +\sqrt {\frac {c}{x}}\, b}\, \left (a x +\sqrt {\frac {c}{x}}\, b x \right )^{\frac {3}{2}} \left (-256 a^{5} x^{2}+384 \sqrt {\frac {c}{x}}\, a^{4} b \,x^{2}-480 a^{3} b^{2} c x +560 \left (\frac {c}{x}\right )^{\frac {3}{2}} a^{2} b^{3} x^{2}-630 a \,b^{4} c^{2}+693 \left (\frac {c}{x}\right )^{\frac {5}{2}} b^{5} x^{2}\right )}{9009 \sqrt {\left (a +\sqrt {\frac {c}{x}}\, b \right ) x}\, b^{6} c^{3} x^{3}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a+(c/x)^(1/2)*b)^(1/2)/x^4,x)

[Out]

-4/9009*(a+(c/x)^(1/2)*b)^(1/2)*(a*x+(c/x)^(1/2)*b*x)^(3/2)*(693*x^2*(c/x)^(5/2)*b^5+560*x^2*(c/x)^(3/2)*a^2*b
^3+384*x^2*(c/x)^(1/2)*a^4*b-256*a^5*x^2-480*c*x*a^3*b^2-630*c^2*a*b^4)/c^3/x^3/((a+(c/x)^(1/2)*b)*x)^(1/2)/b^
6

________________________________________________________________________________________

maxima [A]  time = 0.59, size = 127, normalized size = 0.73 \begin {gather*} -\frac {4 \, {\left (\frac {693 \, {\left (b \sqrt {\frac {c}{x}} + a\right )}^{\frac {13}{2}}}{b^{6}} - \frac {4095 \, {\left (b \sqrt {\frac {c}{x}} + a\right )}^{\frac {11}{2}} a}{b^{6}} + \frac {10010 \, {\left (b \sqrt {\frac {c}{x}} + a\right )}^{\frac {9}{2}} a^{2}}{b^{6}} - \frac {12870 \, {\left (b \sqrt {\frac {c}{x}} + a\right )}^{\frac {7}{2}} a^{3}}{b^{6}} + \frac {9009 \, {\left (b \sqrt {\frac {c}{x}} + a\right )}^{\frac {5}{2}} a^{4}}{b^{6}} - \frac {3003 \, {\left (b \sqrt {\frac {c}{x}} + a\right )}^{\frac {3}{2}} a^{5}}{b^{6}}\right )}}{9009 \, c^{3}} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*(c/x)^(1/2))^(1/2)/x^4,x, algorithm="maxima")

[Out]

-4/9009*(693*(b*sqrt(c/x) + a)^(13/2)/b^6 - 4095*(b*sqrt(c/x) + a)^(11/2)*a/b^6 + 10010*(b*sqrt(c/x) + a)^(9/2
)*a^2/b^6 - 12870*(b*sqrt(c/x) + a)^(7/2)*a^3/b^6 + 9009*(b*sqrt(c/x) + a)^(5/2)*a^4/b^6 - 3003*(b*sqrt(c/x) +
a)^(3/2)*a^5/b^6)/c^3

________________________________________________________________________________________

mupad [F]  time = 0.00, size = -1, normalized size = -0.01 \begin {gather*} \int \frac {\sqrt {a+b\,\sqrt {\frac {c}{x}}}}{x^4} \,d x \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a + b*(c/x)^(1/2))^(1/2)/x^4,x)

[Out]

int((a + b*(c/x)^(1/2))^(1/2)/x^4, x)

________________________________________________________________________________________

sympy [F]  time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {\sqrt {a + b \sqrt {\frac {c}{x}}}}{x^{4}}\, dx \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*(c/x)**(1/2))**(1/2)/x**4,x)

[Out]

Integral(sqrt(a + b*sqrt(c/x))/x**4, x)

________________________________________________________________________________________